home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / MOVIE60A.SFX / menu movie60 (.txt) < prev    next >
Commodore BASIC  |  1993-02-05  |  1KB  |  32 lines
  1. 1 REM WRITTEN BY WILLIAM MARSDEN
  2. 2 REM 8/18/86
  3. 10 N$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ[193][194][195][196][197][198][199][200][201][202]":POKE53280,0:POKE53281,0
  4. 20 PRINTCHR$(14)"[147][196]ISK [201]NDEX 1.0      [208]RESS MATCHING KEY #";
  5. 30 FORN=1TO23:READNM$:IFNM$="EOF"THENN=23:GOTO50
  6. 40 GOSUB410
  7. 50 NEXT:IFNM$="EOF"THEN100
  8. 60 PRINT"";
  9. 70 FORN=24TO46:READNM$:IFNM$="EOF"THENN=46:GOTO90
  10. 80 GOSUB410
  11. 90 NEXT
  12. 100 FORX=0TO9:GETK$:NEXT
  13. 110 GETK$:IFK$=""THEN110
  14. 120 A=0:FORX=1TO46:IFK$=MID$(N$,X,1)THENA=1:N=X:IFX>MTHENA=0
  15. 130 PRINT"[145]";:NEXT:IFA=0THEN110
  16. 140 PRINT"[157]"K$;
  17. 150 M1=198:M2=631:IFFRE(E)>3E4THENM1=208:M2=842
  18. 160 FORX=1TO46:READNM$,M:IFX=NTHENX=46
  19. 170 NEXT:FORX=M2TOM2+2:POKEX,13:NEXT:POKEM1,2
  20. 180 PRINT"[147][142]NEW":PRINT"LOAD"CHR$(34)NM$CHR$(34)",8";:IFM=1THENPRINT",1";
  21. 190 PRINT:PRINT"RUN"
  22. 400 END
  23. 410 PRINT""MID$(N$,N,1)" "LEFT$(NM$,18)LEFT$("[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]",LEN(NM$)+2);
  24. 420 M=N:RETURN
  25. 500 DATA"[194]AD [205]EDICINE","[215]INSOME","[213]NBORED","[204]IGHT [198]ORCE","[197]NERGY","[212]ROLLS"
  26. 510 DATA"[196]EATH","[202]OURNEYS","[199]LASS [211]WORD","[196]UNGEON [205]ASTER","4 [208]ICS/[214]OID"
  27. 520 DATA" B> [196]EATH [210]UN"," C> [212]HE [197]VIL"," D> [212]HE [211]TAND"," E> [193]RMIES","EOF"
  28. 530 DATA"BAD MEDICINE/VI",0,"WINSOME",0,"UNBORED",0,"LIGHT FORCE/FTL",0
  29. 540 DATA"ENERGY DEMO",0,"TROLLS",0,"DEATH DEMO",0,"WIZ/JOURNEYS",1
  30. 550 DATA"GLASS SWORD 2",0,"DUNGEON MASTER",0,"4 PICS/VOID",0,"DEATH RUN",0
  31. 560 DATA"THE EVIL",0,"THE STAND",0,"ARMIES",0
  32.